********************************************************************************
********* By Any Memes Necessary: Belief- and Chaos-Driven Motives for *********
**************** Sharing Conspiracy Theories on Social Media *******************
********************************************************************************

* Farhart, Fitz, Miller, and Saunders (2023) 

* Replication for manuscript accepted for publication at Research & Politics

********************************************************************************

* The following variable transformations and analysis were conducted using Stata/SE 17.0.
* All variables described below have been created and are included in the corresponding data file (Sharing CTs.dta).
* All commands used to transform variables and save figures/tables are included below but commented out.
* Analyses that correspond with manuscript begin on line 223.

********************************************************************************

* To begin this analysis, first download the Stata Data file (Sharing CTs.dta), also located at the Harvard Dataverse.

********************************************************************************
******************************** Variable Coding *******************************

*Install module to compute summated scale variables
*ssc install sumscale

*Russia CT
*gen rusmanip01 = (rusmanip-1)/4
*label var rusmanip01 ///
*"Russia CT: Recode 0-1 rusmanip"

*Supremacists CT
*gen kkk01 = (kkk-1)/4
*label var kkk01 ///
*"Supremacists CT: Recode 0-1 kkk"

*Banks CT
*gen banks01 = (banks-1)/4
*label var banks01 ///
*"Banks CT: Recode 0-1 banks"

*Soros CT
*gen soros01 = (soros-1)/4
*label var soros01 ///
*"Soros CT: Recode 0-1 soros"

*Mueller CT
*gen mueller01 = (mueller-1)/4
*label var mueller01 ///	
*"Mueller CT: Recode 0-1 mueller"

*Benghazi CT
*gen benghazi01 = (benghazi-1)/4
*label var benghazi01 ///
*"Benghazi CT: Recode 0-1 benghazi"

*Share Russia CT
*gen sharerus01 = (sharerus-1)/4
*label var sharerus01 ///
*"Share Russia CT: Recode 0-1 sharerus"

*Share Supremacists CT
*gen sharekkk01 = (sharekkk-1)/4
*label var sharekkk01 ///
*"Share Supremacists CT: Recode 0-1 sharekkk01"

*Share Banks CT
*gen sharebanks01 = (sharebanks-1)/4
*label var sharebanks01 ///
*"Share Banks CT: Recode 0-1 sharebanks"

*Share Soros CT
*gen sharesoros01 = (sharesoros-1)/4
*label var sharesoros01 ///
*"Share Soros CT: Recode 0-1 sharesoros"

*Share Mueller CT
*gen sharemuel01 = (sharemuel-1)/4
*label var sharemuel01 ///
*"Share Mueller CT: Recode 0-1 sharemuel"

*Share Benghazi CT
*gen sharebeng01 = (sharebeng-1)/4
*label var sharebeng01 ///	
*"Share Benghazi CT: Recode 0-1 sharebeng"

*Republican dummy variable (omit Independents)
*gen republican = pid7
*replace republican = 0 if pid7 == 1
*replace republican = 0 if pid7 == 2
*replace republican = 0 if pid7 == 3
*replace republican = . if pid7 == 4
*replace republican = 1 if pid7 == 5
*replace republican = 1 if pid7 == 6
*replace republican = 1 if pid7 == 7
*label var republican ///
*"Republican dummy variable (omits Independents)"
*label define republican ///
*0 "0 Not Republican" 1 "1 Republican"
*label values republican republican 

*Republican dummy variable (includes Independents) 
*gen repsall = pid7
*replace repsall = 0 if pid7 == 1
*replace repsall = 0 if pid7 == 2
*replace repsall = 0 if pid7 == 3
*replace repsall = 0 if pid7 == 4
*replace repsall = 1 if pid7 == 5
*replace repsall = 1 if pid7 == 6
*replace repsall = 1 if pid7 == 7
*label var repsall ///
*"Republican dummy variable (includes Independents)"
*label define repsall ///
*0 "0 Not Republican" 1 "1 Republican"
*label values repsall repsall 

*Independent dummy variable
*gen independent = pid7
*replace independent = 0 if pid7 == 1
*replace independent = 0 if pid7 == 2
*replace independent = 0 if pid7 == 3
*recode independent (4=1)
*replace independent = 0 if pid7 == 5
*replace independent = 0 if pid7 == 6
*replace independent = 0 if pid7 == 7
*label var independent ///
*"Independent dummy variable"
*label define independent ///
*0 "0 Not Independent" 1 "1 Independent"
*label values independent independent

*Strength of Partisanship (omits Independents) 
*gen pidstr3x = pid7
*replace pidstr3x = . if pid7 == 4
*replace pidstr3x = 1 if pid7 == 3
*replace pidstr3x = 1 if pid7 == 5
*replace pidstr3x = 2 if pid7 == 2
*replace pidstr3x = 2 if pid7 == 6
*replace pidstr3x = 3 if pid7 == 1
*replace pidstr3x = 3 if pid7 == 7
*label var pidstr3x ///
*"PID Strength (Independents omitted)"
*label define pidstr3x 1 "1 Not strong" 2 "2 Leaning" 3 "3 Strong"
*label values pidstr3x pidstr3x

*gen pidstr3 = (pidstr3x-1)/2
*label var pidstr3 ///	
*"PID Strength: Recode (0-1) pidstr3x" 

*Strength of Partisanship (includes Independents) 
*gen pidstrindx = pid7
*replace pidstrindx = 1 if pid7 == 4
*replace pidstrindx = 2 if pid7 == 3
*replace pidstrindx = 3 if pid7 == 5
*replace pidstrindx = 3 if pid7 == 2
*replace pidstrindx = 4 if pid7 == 6
*replace pidstrindx = 4 if pid7 == 1
*replace pidstrindx = 4 if pid7 == 7
*label var pidstrindx ///
*"PID Strength (with Independents)"
*label define pidstrindx 0 "0 Independent" 1 "1 Not strong" 2 "2 Leaning" 3 "3 	Strong"
*label values pidstrindx pidstrindx

*gen pidstrind = (pidstrindx-1)/3
*label var pidstrind ///
*"PID Strength (with Independents): Recode (0-1) pidstrindx"

*Ideology
*gen ideor = (ideo-1)/6
*label var ideor ///
*"Ideology: Recode 0-1 ideo"

*Interest 
*gen interest = (natint-1)/4
*label var interest ///
*"Interest: Recode 0-1 natint"

*Need for Chaos
*sumscale, f1(chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r)
*rename Factor1_average chaosindexr
*label var chaosindexr "Need for Chaos 8-Item Scale"

*Loser Perceptions
*gen loser6rec = (loser6-1)/5
*label var loser6rec ///
*"Loser Perceptions: Recode (0-1) loser6"

**Need for Closure
*sumscale, f1(closure_1r closure_2r closure_3r closure_4r closure_5r closure_6r closure_7r closure_8r closure_9r closure_10r closure_11r closure_12r closure_13r closure_14r closure_15r)
*rename Factor1_average needclose 
*label var needclose "Need for Closure 15-Item Scale"

**Authoritarianism 
*sumscale, f1(auth1 auth2 auth3 auth4)
*rename Factor1_average auth 
*label var auth "4-Item Authoritarianism Scale"

**Trust 
*sumscale, f1(trfed trlaw trmedia trpeople)
*rename Factor1_average gentrustx
*label var gentrustx ///
*"Trust 4-Item Index"

*gen gentrust = (gentrustx-1)/3
*label var gentrust ///
*"Trust: Recode (0-1) gentrustx"

**Religiosity 
*gen religr = (relig-1)/4
*label var religr ///
*"Religiosity: Recode 0-1 relig"

*Income 
*gen inc = (income5pt-1)/4
*label var inc ///
*"Income: Recode 0-1 income5pt"

*Age
*gen ager = (age-18)/75
*label var ager ///
*Age: Recode (0-1) age"

********************************************************************************
********************** Factor Analysis for CTs (Footnote 4) ********************

factor rusmanip01 kkk01 banks01 soros01 mueller01 benghazi01, ipf

********** Pairwise correlations between PID and ideology (Footnote 5) *********

pwcorr republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc

regr sharerus01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
vif 

regr sharekkk01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
vif 

regr sharebanks01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
vif 

regr sharesoros01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
vif 

regr sharemuel01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
vif 

regr sharebeng01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
vif 

****************** Item/Factor Analysis for NFCh (Footnote 7) ******************

*NFCh Scale
alpha chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r, item
factor chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r, ipf

*NFC Scale: Add partisan identity 
alpha chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r pid7, item
factor chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r pid7, ipf

*NFC Scale: Add ideology
alpha chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r ideor, item
factor chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r ideor, ipf

*NFC Scale: Add authoritarianism 
alpha chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r auth, item
factor chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r auth, ipf

*NFC Scale: Add need for closure 
alpha chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r needclose, item
factor chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r needclose, ipf

*NFC Scale: Add loser perceptions
alpha chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r loser6rec, item
factor chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r loser6rec, ipf

*********************************** Figure 1 ***********************************

regr rusmanip01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store a1

regr kkk01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store a2

regr banks01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store a3

regr soros01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store a4

regr mueller01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store a5

regr benghazi01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store a6

coefplot (a1, mcolor(midblue) msymbol(o) msize(medium) ciopts(lcolor(midblue)) keep (republican ideor loser6rec chaosindexr)) ///
(a2, mcolor(midblue) msymbol(s) msize(medium) ciopts(lcolor(midblue)) keep (republican ideor loser6rec chaosindexr)) ///
(a3, mcolor(midblue) msymbol(t) msize(medium) ciopts(lcolor(midblue)) keep (republican ideor loser6rec chaosindexr)) ///
(a4, mcolor(red) msymbol(oh) msize(medium) ciopts(lcolor(red)) keep (republican ideor loser6rec chaosindexr)) ///
(a5, mcolor(red) msymbol(sh) msize(medium) ciopts(lcolor(red)) keep (republican ideor loser6rec chaosindexr)) ///
(a6, mcolor(red) msymbol(th) msize(medium) ciopts(lcolor(red)) keep (republican ideor loser6rec chaosindexr)), ///
grid(none) ///
title("Predictors of Belief in Conspiracy Theories" ///
, size(small) yoffset(1)) ///
xline(0, lcolor(black) lpattern(dash)) ///
ylabel(1 "Republican" 2 "Ideology" 3 "Loser Perceptions" 4 "Need for Chaos", labsize(vsmall)) ///
xlabel(, labsize(vsmall)) ///
xtitle("Coefficient Estimate", size(small) yoffset(-3)) ///
legend(order(2 "Russia" 4 "Supremacists" 6 "Banks" 8 "Soros" 10 "Mueller" 12 "Benghazi") col(1) pos(3) size(vsmall) region(lstyle(none))) scheme(s1color) 

*graph save SharingCTsFig1.gph

*********************************** Figure 2 ***********************************

regr sharerus01 republican ideor loser6rec chaosindexr rusmanip01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store b1

regr sharekkk01 republican ideor loser6rec chaosindexr kkk01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store b2

regr sharebanks01 republican ideor loser6rec chaosindexr banks01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store b3

regr sharesoros01 republican ideor loser6rec chaosindexr soros01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store b4

regr sharemuel01 republican ideor loser6rec chaosindexr mueller01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store b5

regr sharebeng01 republican ideor loser6rec chaosindexr benghazi01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store b6

coefplot (b1, mcolor(midblue) msymbol(o) msize(medium) ciopts(lcolor(midblue)) keep (republican) offset(.125)) /// 
(b2, mcolor(midblue) msymbol(s) msize(medium) ciopts(lcolor(midblue)) keep (republican) offset(-.125)) ///
(b3, mcolor(midblue) msymbol(t) msize(medium) ciopts(lcolor(midblue)) keep (republican) offset(-.375)) ///
(b4, mcolor(red) msymbol(oh) msize(medium) ciopts(lcolor(red)) keep (republican) offset(-.625)) ///
(b5, mcolor(red) msymbol(sh) msize(medium) ciopts(lcolor(red)) keep (republican) offset(-.875)) ///
(b6, mcolor(red) msymbol(th) msize(medium) ciopts(lcolor(red)) keep (republican) offset(-1.125)) ///
(b1, mcolor(midblue) msymbol(o) msize(medium) ciopts(lcolor(midblue)) keep (ideor) offset(-.875)) /// 
(b2, mcolor(midblue) msymbol(s) msize(medium) ciopts(lcolor(midblue)) keep (ideor) offset(-1.125)) ///
(b3, mcolor(midblue) msymbol(t) msize(medium) ciopts(lcolor(midblue)) keep (ideor) offset(-1.375)) ///
(b4, mcolor(red) msymbol(oh) msize(medium) ciopts(lcolor(red)) keep (ideor) offset(-1.625)) /// 
(b5, mcolor(red) msymbol(sh) msize(medium) ciopts(lcolor(red)) keep (ideor) offset(-1.875)) ///
(b6, mcolor(red) msymbol(th) msize(medium) ciopts(lcolor(red)) keep (ideor) offset(-2.125)) ///
(b1, mcolor(midblue) msymbol(o) msize(medium) ciopts(lcolor(midblue)) keep (loser6rec) offset(-1.875)) ///
(b2, mcolor(midblue) msymbol(s) msize(medium) ciopts(lcolor(midblue)) keep (loser6rec) offset(-2.125)) ///
(b3, mcolor(midblue) msymbol(t) msize(medium) ciopts(lcolor(midblue)) keep (loser6rec) offset(-2.375)) ///
(b4, mcolor(red) msymbol(oh) msize(medium) ciopts(lcolor(red)) keep (loser6rec) offset(-2.625)) ///
(b5, mcolor(red) msymbol(sh) msize(medium) ciopts(lcolor(red)) keep (loser6rec) offset(-2.875)) ///
(b6, mcolor(red) msymbol(th) msize(medium) ciopts(lcolor(red)) keep (loser6rec) offset(-3.125)) ///
(b1, mcolor(midblue) msymbol(o) msize(medium) ciopts(lcolor(midblue)) keep (chaosindexr) offset(-2.875)) ///
(b2, mcolor(midblue) msymbol(s) msize(medium) ciopts(lcolor(midblue)) keep (chaosindexr) offset(-3.125)) ///
(b3, mcolor(midblue) msymbol(t) msize(medium) ciopts(lcolor(midblue)) keep (chaosindexr) offset(-3.375)) ///
(b4, mcolor(red) msymbol(oh) msize(medium) ciopts(lcolor(red)) keep (chaosindexr) offset(-3.625)) ///
(b5, mcolor(red) msymbol(sh) msize(medium) ciopts(lcolor(red)) keep (chaosindexr) offset(-3.875)) ///
(b6, mcolor(red) msymbol(th) msize(medium) ciopts(lcolor(red)) keep (chaosindexr) offset(-4.125)) ///
(b1, mcolor(midblue) msymbol(o) msize(medium) ciopts(lcolor(midblue)) keep (rusmanip01) offset(-3.875)) ///
(b2, mcolor(midblue) msymbol(s) msize(medium) ciopts(lcolor(midblue)) keep (kkk01) offset(-3.125)) ///
(b3, mcolor(midblue) msymbol(t) msize(medium) ciopts(lcolor(midblue)) keep (banks01) offset(-2.375)) ///
(b4, mcolor(red) msymbol(oh) msize(medium) ciopts(lcolor(red)) keep (soros01) offset(-1.625)) ///
(b5, mcolor(red) msymbol(sh) msize(medium) ciopts(lcolor(red)) keep (mueller01) offset(-.875)) ///
(b6, mcolor(red) msymbol(th) msize(medium) ciopts(lcolor(red)) keep (benghazi01) offset(-.125)), ///
grid(none) ///
title("Predictors of Willingness to Share Conspiracy Theories" ///
, size(small) yoffset(1)) ///
xline(0, lcolor(black) lpattern(dash)) ///
ylabel(1.5 "Republican" 3.5 "Ideology" 5.5 "Loser Perceptions" 7.5 "Need for Chaos" 9.5 "Belief in the CT", labsize(vsmall)) ///
xlabel(, labsize(vsmall)) ///
xtitle("Coefficient Estimate", size(small) yoffset(-3)) ///
legend(order(2 "Russia" 4 "Supremacists" 6 "Banks" 8 "Soros" 10 "Mueller" 12 "Benghazi")) ///
legend(col(1) pos(3) size(vsmall) region(lstyle(none))) ///
scheme(s1color)

*graph save SharingCTsFig2.gph

*********************************** Figure 3 ***********************************

regr sharerus01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store c1

regr sharekkk01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store c2

regr sharebanks01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store c3

regr sharesoros01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store c4

regr sharemuel01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store c5

regr sharebeng01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store c6

coefplot (c1, mcolor(midblue) msymbol(o) msize(medium) ciopts(lcolor(midblue)) keep (republican ideor loser6rec chaosindexr)) ///
(c2, mcolor(midblue) msymbol(s) msize(medium) ciopts(lcolor(midblue)) keep (republican ideor loser6rec chaosindexr)) ///
(c3, mcolor(midblue) msymbol(t) msize(medium) ciopts(lcolor(midblue)) keep (republican ideor loser6rec chaosindexr)) ///
(c4, mcolor(red) msymbol(oh) msize(medium) ciopts(lcolor(red)) keep (republican ideor loser6rec chaosindexr)) ///
(c5, mcolor(red) msymbol(sh) msize(medium) ciopts(lcolor(red)) keep (republican ideor loser6rec chaosindexr)) ///
(c6, mcolor(red) msymbol(th) msize(medium) ciopts(lcolor(red)) keep (republican ideor loser6rec chaosindexr)), ///
grid(none) ///
title("Predictors of Willingness to Share Conspiracy Theories (without Belief)" ///
, size(small) yoffset(1)) ///
xline(0, lcolor(black) lpattern(dash)) ///
ylabel(1 "Republican" 2 "Ideology" 3 "Loser Perceptions" 4 "Need for Chaos", labsize(vsmall)) ///
xlabel(, labsize(vsmall)) ///
xtitle("Coefficient Estimate", size(small) yoffset(-3)) ///
legend(order(2 "Russia" 4 "Supremacists" 6 "Banks" 8 "Soros" 10 "Mueller" 12 "Benghazi") col(1) pos(3) size(vsmall) region(lstyle(none))) scheme(s1color) 

*graph save SharingCTsFig3.gph

********************************************************************************
**************************** Supplementary Materials ***************************

*Appendix A: Lucid Survey Information
*Appendix B: Question Wording and Variable Coding

********************* Appendix C: Descriptive Statistics ***********************

*Full Sample
tab pid3
tab pidstrind
sum chaosindexr 
sum loser6rec
sum auth
sum needclose
sum gentrust
sum interest
tab religr 
tab ideor
tab female
tab race
tab eth
sum ager
tab educ
tab inc

*Russia CT
tabulate sharerus01 pid3, row
tabulate sharerus01 ideor, row
tabulate sharerus01 pidstrind, row
tabulate sharerus01 religr, row
tabulate sharerus01 female, row
tabulate sharerus01 race, row
tabulate sharerus01 eth, row
tabstat ager, by(sharerus01) stat(n mean sd)
tabulate sharerus01 educ, row
tabulate sharerus01 inc, row

*Supremacists CT
tabulate sharekkk01 pid3, row
tabulate sharekkk01 ideor, row
tabulate sharekkk01 pidstrind, row
tabulate sharekkk01 religr, row
tabulate sharekkk01 female, row
tabulate sharekkk01 race, row
tabulate sharekkk01 eth, row
tabstat ager, by(sharekkk01) stat(n mean sd)
tabulate sharekkk01 educ, row
tabulate sharekkk01 inc, row

*Banks CT
tabulate sharebanks01 pid3, row
tabulate sharebanks01 ideor, row
tabulate sharebanks01 pidstrind, row
tabulate sharebanks01 religr, row
tabulate sharebanks01 female, row
tabulate sharebanks01 race, row
tabulate sharebanks01 eth, row
tabstat ager, by(sharebanks01) stat(n mean sd)
tabulate sharebanks01 educ, row
tabulate sharebanks01 inc, row

*Soros CT
tabulate sharesoros01 pid3, row
tabulate sharesoros01 ideor, row
tabulate sharesoros01 pidstrind, row
tabulate sharesoros01 religr, row
tabulate sharesoros01 female, row
tabulate sharesoros01 race, row
tabulate sharesoros01 eth, row
tabstat ager, by(sharesoros01) stat(n mean sd)
tabulate sharesoros01 educ, row
tabulate sharesoros01 inc, row

*Mueller CT
tabulate sharemuel01 pid3, row
tabulate sharemuel01 ideor, row
tabulate sharemuel01 pidstrind, row
tabulate sharemuel01 religr, row
tabulate sharemuel01 female, row
tabulate sharemuel01 race, row
tabulate sharemuel01 eth, row
tabstat ager, by(sharemuel01) stat(n mean sd)
tabulate sharemuel01 educ, row
tabulate sharemuel01 inc, row

*Benghazi CT
tabulate sharebeng01 pid3, row
tabulate sharebeng01 ideor, row
tabulate sharebeng01 pidstrind, row
tabulate sharebeng01 religr, row
tabulate sharebeng01 female, row
tabulate sharebeng01 race, row
tabulate sharebeng01 eth, row
tabstat ager, by(sharebeng01) stat(n mean sd)
tabulate sharebeng01 educ, row
tabulate sharebeng01 inc, row

*************** Appendix D: Results Tables for Main Analysis *******************

*Predictors of Belief in CTs (Corresponds with Figure 1 in Main Text) 
regr rusmanip01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store a1

regr kkk01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store a2

regr banks01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store a3

regr soros01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store a4

regr mueller01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store a5

regr benghazi01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store a6

*esttab a1 a2 a3 a4 a5 a6 using "Belief in CTs.rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

*Predictors of Willingness to Share CTs (Corresponds with Figure 2 in Main Text) 
regr sharerus01 republican ideor loser6rec chaosindexr rusmanip01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store b1

regr sharekkk01 republican ideor loser6rec chaosindexr kkk01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store b2

regr sharebanks01 republican ideor loser6rec chaosindexr banks01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store b3

regr sharesoros01 republican ideor loser6rec chaosindexr soros01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store b4

regr sharemuel01 republican ideor loser6rec chaosindexr mueller01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store b5

regr sharebeng01 republican ideor loser6rec chaosindexr benghazi01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store b6

*esttab b1 b2 b3 b4 b5 b6 using "Sharing CTs.rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

*Predictors of Willingness to Share CTs (without Belief) (Corresponds with Figure 3 in Main Text)
regr sharerus01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store c1

regr sharekkk01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store c2

regr sharebanks01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store c3

regr sharesoros01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store c4

regr sharemuel01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store c5

regr sharebeng01 republican ideor loser6rec chaosindexr pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store c6

*esttab c1 c2 c3 c4 c5 c6 using "Sharing CTs (without Belief).rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

******* Appendix E: Results Substituting Independents for Strength of PID ******

*Predictors of Belief in CTs (Substitutes Independent for Strength of Partisan Identity)
regr rusmanip01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store d1

regr kkk01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store d2

regr banks01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store d3

regr soros01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store d4

regr mueller01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store d5

regr benghazi01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store d6

*esttab d1 d2 d3 d4 d5 d6 using "Belief in CTs (sub Ind).rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

*Predictors of Willingness to Share CTs (Substitutes Independent for Strength of Partisan Identity)
regr sharerus01 rusmanip01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store e1

regr sharekkk01 kkk01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store e2

regr sharebanks01 banks01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store e3

regr sharesoros01 soros01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store e4

regr sharemuel01 mueller01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store e5

regr sharebeng01 benghazi01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store e6

*esttab e1 e2 e3 e4 e5 e6 using "Sharing CTs (sub Ind).rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

*Predictors of Willingness to Share CTs (without Belief) 
regr sharerus01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store f1

regr sharekkk01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store f2

regr sharebanks01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store f3

regr sharesoros01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store f4

regr sharemuel01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store f5

regr sharebeng01 repsall independent chaosindexr loser6rec ideor auth needclose gentrust interest religr female race eth ager educ inc
estimates store f6

*esttab f1 f2 f3 f4 f5 f6 using "Sharing CTs (without Belief sub Ind).rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

********************* Appendix F: Eight-Item NFCh Scale ************************

*Table F1: Item and Factor Analysis for Eight-Item NFCh Scale 
alpha chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r, item
factor chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r chaos_8r, ipf

*Create 7-Item NFCh Measure
	*sumscale, f1(chaos_1r chaos_2r chaos_3r chaos_4r chaos_5r chaos_6r chaos_7r)
	*rename Factor1_average nfch7
	*label var nfch7 "Need for Chaos 7-Item Scale"

*Table F2: Predictors of Belief in Conspiracy Theories (7-Item NFCh Scale) 
regr rusmanip01 republican ideor loser6rec nfch7 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store g1

regr kkk01 republican ideor loser6rec nfch7 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store g2

regr banks01 republican ideor loser6rec nfch7 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store g3

regr soros01 republican ideor loser6rec nfch7 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store g4

regr mueller01 republican ideor loser6rec nfch7 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store g5

regr benghazi01 republican ideor loser6rec nfch7 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store g6

*esttab g1 g2 g3 g4 g5 g6 using "Belief in CTs (NFCh7).rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

*Table F3: Predictors of Willingness to Share Conspiracy Theories (7-Item NFCh Scale) 
regr sharerus01 republican ideor loser6rec nfch7 rusmanip01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store h1

regr sharekkk01 republican ideor loser6rec nfch7 kkk01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store h2

regr sharebanks01 republican ideor loser6rec nfch7 banks01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store h3

regr sharesoros01 republican ideor loser6rec nfch7 soros01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store h4

regr sharemuel01 republican ideor loser6rec nfch7 mueller01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store h5

regr sharebeng01 republican ideor loser6rec nfch7 benghazi01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store h6

*esttab h1 h2 h3 h4 h5 h6 using "Sharing CTs (NFCh7).rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

*Table F4: Predictors of Willingness to Share Conspiracy Theories (without Belief) (7-Item NFCh Scale) 
regr sharerus01 republican ideor loser6rec nfch7 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store i1

regr sharekkk01 republican ideor loser6rec nfch7 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store i2

regr sharebanks01 republican ideor loser6rec nfch7 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store i3

regr sharesoros01 republican ideor loser6rec nfch7 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store i4

regr sharemuel01 republican ideor loser6rec nfch7 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store i5

regr sharebeng01 republican ideor loser6rec nfch7 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
estimates store i6

*esttab i1 i2 i3 i4 i5 i6 using "Sharing CTs (without Belief NFCh7).rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

********************* Appendix G: Additional Analyses **************************

*Create time (in minutes) variable
*gen durationmin = (Duration__in_seconds_)/60
*label var durationmin "Duration in Minutes"
	
*Figure G1: Sample Distributions of Need for Chaos 
mean chaosindexr 
hist chaosindexr, percent 

regr sharerus01 republican chaosindexr loser6rec ideor rusmanip01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr sharerus01 republican chaosindexr loser6rec ideor rusmanip01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .75
estimates store a1

mean chaosindexr if e(sample)
hist chaosindexr if e(sample), percent 

*Figure G2: Sample Distributions of Time Taken to Complete Survey 
mean durationmin
hist durationmin, percent 

regr sharerus01 republican chaosindexr loser6rec ideor rusmanip01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)

regr sharerus01 republican chaosindexr loser6rec ideor rusmanip01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 303 & Duration__in_seconds_ < 2901
estimates store a1

mean durationmin if e(sample)
hist durationmin if e(sample), percent 

************************ Belief: Bottom/Top 5% Omitted  ************************

regr rusmanip01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc 
tab durationmin if e(sample)
mean durationmin if e(sample)

regr rusmanip01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 311 & Duration__in_seconds_ < 2588
estimates store j1

regr kkk01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc 
tab Duration__in_seconds_ if e(sample)
mean durationmin if e(sample)

regr kkk01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 310 & Duration__in_seconds_ < 2583
estimates store j2

regr banks01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)
mean durationmin if e(sample)

regr banks01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 308 & Duration__in_seconds_ < 2570
estimates store j3

regr soros01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)
mean durationmin if e(sample)

regr soros01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 306 & Duration__in_seconds_ < 2598
estimates store j4

regr mueller01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)
mean durationmin if e(sample)

regr mueller01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 308 & Duration__in_seconds_ < 2583
estimates store j5

regr benghazi01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)
mean durationmin if e(sample)

regr benghazi01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 310 & Duration__in_seconds_ < 2583
estimates store j6

*esttab j1 j2 j3 j4 j5 j6 using "Belief in CTs (no time outliers).rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

************************ Sharing: Bottom/Top 5% Omitted  ***********************

regr sharerus01 republican chaosindexr loser6rec ideor rusmanip01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)

regr sharerus01 republican chaosindexr loser6rec ideor rusmanip01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 303 & Duration__in_seconds_ < 2901
estimates store k1

regr sharekkk01 republican chaosindexr loser6rec ideor kkk01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)
mean durationmin if e(sample)

regr sharekkk01 republican chaosindexr loser6rec ideor kkk01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 312 &Duration__in_seconds_ < 2570
estimates store k2

regr sharebanks01 republican chaosindexr loser6rec ideor banks01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)
mean durationmin if e(sample)

regr sharebanks01 republican chaosindexr loser6rec ideor banks01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 303 & Duration__in_seconds_ < 2305
estimates store k3

regr sharesoros01 republican chaosindexr loser6rec ideor soros01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)
mean durationmin if e(sample)

regr sharesoros01 republican chaosindexr loser6rec ideor soros01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 309 & Duration__in_seconds_ < 2610
estimates store k4

regr sharemuel01 republican chaosindexr loser6rec ideor mueller01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)
mean durationmin if e(sample)

regr sharemuel01 republican chaosindexr loser6rec ideor mueller01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 313 & Duration__in_seconds_ < 2653
estimates store k5

regr sharebeng01 republican chaosindexr loser6rec ideor benghazi01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)
mean durationmin if e(sample)

regr sharebeng01 republican chaosindexr loser6rec ideor benghazi01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 299 & Duration__in_seconds_ < 2559
estimates store k6

*esttab k1 k2 k3 k4 k5 k6 using "Sharing CTs (no time outliers).rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

******************* Sharing: Belief and Bottom/Top 5% Omitted  *****************

regr sharerus01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)

regr sharerus01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 296 & Duration__in_seconds_ < 2901
estimates store l1

regr sharekkk01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)

regr sharekkk01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 311 &Duration__in_seconds_ < 2570
estimates store l2

regr sharebanks01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)

regr sharebanks01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 303 & Duration__in_seconds_ < 2305
estimates store l3

regr sharesoros01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)

regr sharesoros01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 309 & Duration__in_seconds_ < 2583
estimates store l4

regr sharemuel01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)

regr sharemuel01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 313 & Duration__in_seconds_ < 2653
estimates store l5

regr sharebeng01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab Duration__in_seconds_ if e(sample)

regr sharebeng01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if Duration__in_seconds_ > 299 & Duration__in_seconds_ < 2559
estimates store l6

*esttab l1 l2 l3 l4 l5 l6 using "Sharing CTs (without Belief no time outliers).rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

************************ Belief: Top 5% of NFC Omitted  ************************

regr rusmanip01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc 
tab chaosindexr if e(sample)

regr rusmanip01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .75
estimates store m1

regr kkk01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc 
tab chaosindexr if e(sample)

regr kkk01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .7708333
estimates store m2

regr banks01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr banks01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < 75
estimates store m3

regr soros01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr soros01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .7708333
estimates store m4

regr mueller01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr mueller01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .75
estimates store m5

regr benghazi01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr benghazi01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .7291667
estimates store m6

*esttab m1 m2 m3 m4 m5 m6 using "Belief in CTs (no NFCh outliers).rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

************************ Sharing: Top 5% of NFC Omitted  ***********************

regr sharerus01 republican chaosindexr loser6rec ideor rusmanip01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr sharerus01 republican chaosindexr loser6rec ideor rusmanip01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .75
estimates store n1

regr sharekkk01 republican chaosindexr loser6rec ideor kkk01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr sharekkk01 republican chaosindexr loser6rec ideor kkk01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .7291667
estimates store n2

regr sharebanks01 republican chaosindexr loser6rec ideor banks01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr sharebanks01 republican chaosindexr loser6rec ideor banks01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .75
estimates store n3

regr sharesoros01 republican chaosindexr loser6rec ideor soros01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr sharesoros01 republican chaosindexr loser6rec ideor soros01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .7291667
estimates store n4

regr sharemuel01 republican chaosindexr loser6rec ideor mueller01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr sharemuel01 republican chaosindexr loser6rec ideor mueller01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .7291667
estimates store n5

regr sharebeng01 republican chaosindexr loser6rec ideor benghazi01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr sharebeng01 republican chaosindexr loser6rec ideor benghazi01 pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .7916667
estimates store n6

*esttab n1 n2 n3 n4 n5 n6 using "Sharing CTs (no NFCh outliers).rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

******************* Sharing: Belief and Top 5% of NFC Omitted  *****************

regr sharerus01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr sharerus01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .75
estimates store o1

regr sharekkk01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr sharekkk01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .7291667
estimates store o2

regr sharebanks01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr sharebanks01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .75
estimates store o3

regr sharesoros01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr sharesoros01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .7083334
estimates store o4

regr sharemuel01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr sharemuel01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .7291667
estimates store o5

regr sharebeng01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc
tab chaosindexr if e(sample)

regr sharebeng01 republican chaosindexr loser6rec ideor pidstr3 auth needclose gentrust interest religr female race eth ager educ inc if chaosindexr < .7916667
estimates store o6

*esttab o1 o2 o3 o4 o5 o6 using "Sharing CTs (without Belief and no NFCh outliers).rtf", se ar2 replace starlevels(+ .10 * .05 ** .01 *** .001) b(2) se(2)

*Appendix H: Omitted Survey Question

******************** Code for Robustness Checks (Footnote 9) *******************

*Strength of Partisan Identity x Belief on Willingness to Share CTs 
regr sharerus01 c.pidstr3##c.rusmanip01 republican chaosindexr auth needclose gentrust interest religr ideor female race eth ager educ inc

regr sharekkk01 c.pidstr3##c.kkk01 loser6rec republican chaosindexr auth needclose gentrust interest religr ideor female race eth ager educ inc

regr sharebanks01 c.pidstr3##c.banks01 loser6rec republican chaosindexr auth needclose gentrust interest religr ideor female race eth ager educ inc

regr sharesoros01 c.pidstr3##c.soros01 loser6rec republican chaosindexr auth needclose gentrust interest religr ideor female race eth ager educ inc

regr sharemuel01 c.pidstr3##c.mueller01 loser6rec republican chaosindexr auth needclose gentrust interest religr ideor female race eth ager educ inc

regr sharebeng01 c.pidstr3##c.benghazi01 loser6rec republican chaosindexr auth needclose gentrust interest religr ideor female race eth ager educ inc

*Belief x Loser Perceptions on Willingness to Share CTs 
regr sharerus01 c.rusmanip01##c.loser6rec republican pidstr3 chaosindexr auth needclose gentrust interest religr ideor female race eth ager educ inc

regr sharekkk01 c.kkk01##c.loser6rec republican pidstr3 chaosindexr auth needclose gentrust interest religr ideor female race eth ager educ inc

regr sharebanks01 c.banks01##c.loser6rec republican pidstr3 chaosindexr auth needclose gentrust interest religr ideor female race eth ager educ inc

regr sharesoros01 c.soros01##c.loser6rec republican pidstr3 chaosindexr auth needclose gentrust interest religr ideor female race eth ager educ inc

regr sharemuel01 c.mueller01##c.loser6rec republican pidstr3 chaosindexr auth needclose gentrust interest religr ideor female race eth ager educ inc

regr sharebeng01 c.benghazi01##c.loser6rec republican pidstr3 chaosindexr auth needclose gentrust interest religr ideor female race eth ager educ inc

********************************************************************************
